<?php
require_once $_SERVER['DOCUMENT_ROOT'] . '/proyecto/clases/autoload.inc.php';
if(Zen::IniciarSesion()){
     Zen::NoCache();
       
     $debug=false;
     
     $tabla = 'aranceles' ;
     $record = array() ;
     
     $id_tabla = $_POST['ara_codigo'] ;
     $param_arancel = explode("~~","$id_tabla");
     $id_examen=$param_arancel[0];
     $id_convenio=$param_arancel[1];
     $id_tipo_atencion=$param_arancel[2];
     $convenio = $id_convenio;
     $examen = $id_examen ;
     $tipo_atencion = $id_tipo_atencion;
     $nombre_convenio = strtoupper($_POST['con_nombre']);
     
     $fecha_actual = date('Y-m-d');
     $val_convenio = $_POST['valor'];
     $val_paciente = $_POST['valor_pac'];
 
     //CONSULTA SI TIENE CONTRASTE EL EXAMEN
/*
     $cons_cont=Examenes::getInstancia($examen); 
     $res_cont= $cons_cont->ex_contraste;
     if ($res_cont=='T') $val_contraste = $_POST['valor_con'];   
     else $val_contraste = 0;
*/        
     $val_contraste = $_POST['valor_con'];
      
     //CONSULTA VALOR DEL EXAMEN EN FONASA
     $sql="select ara_valor_exa_conv from aranceles as a join convenios as c on a.con_rut = c.con_rut where lower(c.con_nombre) = 'fonasa' and a.tia_id = $tipo_atencion and a.ex_codigo = '$examen' ";
     $result = Zen::Consulta($sql,$debug);
     foreach($result as $k => $record) 
     {
            $val_fonasa = $record['ara_valor_exa_conv'];
     } 
     
     //CONSULTA VALOR IVA
     $result_iva=Config::getInstancia('iva'); 
     $iva_num= $result_iva->valor_float;
     $iva_porc = ($iva_num / 100);
    
     //PARA EL VALOR AFECTO, VARIABLE $AFECTO
     if ($nombre_convenio == 'FONASA') $afecto = 0; 
     else $afecto = $val_convenio - $val_fonasa ;
     
     //PARA EL VALOR EXENTO, VARIABLE $EXENTO
     if ($nombre_convenio == 'FONASA') $exento = $val_convenio; 
     else $exento = $val_fonasa ;
     
     //PARA EL VALOR NETO, VARIABLE $NETO
     if ($afecto > 0) $neto = $afecto / ($iva_porc + 1 ) ;
     else $neto = 0;
     
    
     //PARA EL VALOR IVA, VARIABLE $IVA
     if ($afecto > 0) $iva = $neto * ($iva_porc);
     else $iva = 0;
     
     //PARA EL VALOR HONORARIO, VARIABLE $HONORARIO
     $honorarios = $exento + $neto ;
     /* OBLIGATORIOS */
     $record["ara_fecha_act"] = $fecha_actual;
     $record["ara_valor_exa_conv"] = $val_convenio;
     $record["ara_valor_exa_pac"] = $val_paciente ;
     $record["ara_valor_con_pac"] = $val_contraste;
     $record["ara_valor_exento"] = $exento  ;
     $record["ara_valor_afecto"] = $afecto  ;
     $record["ara_valor_neto"] = $neto  ;
     $record["ara_valor_iva"] = $iva ;
     $record["ara_valor_honorario"] = $honorarios  ;
     
     
     $insertSQL = Zen::AutoSql($debug, $tabla, $record, 'UPDATE', "con_rut='$convenio' and tia_id=$tipo_atencion and ex_codigo='$examen'", false, true ) ;


   
   $json = new Services_JSON() ;

   if ( $insertSQL && Zen::FilasAfectadas() === 1 )
   {
        $datos = array( 'error' => 'ok' ) ;
        $datos['filas'] = 'Numero de filas afectadas: ' . Zen::FilasAfectadas() ;
        $salida = $json->encode( $datos ) ;
        echo $salida ;
   }
   else
   {
        $e = ADODB_Pear_Error();
        $datos['filas'] .= 'Numero de filas afectadas: ' . Zen::FilasAfectadas() ;
        $datos['detalles'] =$e->message;
        $datos = array( 'error' => 'mal' ) ;
        echo $json->encode( $datos ) ;
   }
}
else
{
 Zen::LogoutModulo();
}
?>


